home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjja86.arc / RECURSE1.PRO < prev    next >
Text File  |  1985-11-13  |  92b  |  4 lines
  1. /* Normal recursion test */
  2. f(X) :- write(X), nl, Y is X+1, f(Y), write(Y), nl.
  3. ?- f(1).
  4.